RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 


**F ILE®**1D**BOTPAG CAP 
BBBBBBBB 000000 TTTTTTTTTT PPPPPPPP AAAAAA GGGGGGGG , 
BBBBBBBB 000000 TTTTTTTTTT PPPPPPPP AAAAAA GGGGGGGG . 
BB BB 00 00 TT PP PP AA AA GG 3 
8B BB 00 00 TT pe PP AA AA GG $ 
6B BB 00 00 TT PP PP AA AA GG 3 
6B BB 00 00 TT PP PP AA AA GG 3 
BBBBBBBB 00 00 TT PPPPPPPP AA AA GG 3 
68868868 00 00 TT PPPPPPPP AA AA GG 3 
BB BB 00 00 TT ag AAAAAAAAAA GG GGGGGG : 
BB BB 00 00 TT PP AAAAAAAAAA GG GGGGGG H 
8B BB 00 00 TT PP AA AA GG GG sane F 
BB BB 00 TT PP AA AA GG GG aioe ; 
BBBBBBBB 000000 TT PP AA AA GGGGGG wbow 3 

000000 TT PP AA AA GGGGGG ene ‘ 
LL IIII11 SSSSSSSS 3 
LL III] SSSSSSSS 3 
LL II ss 5 
LL II SS 3 
LL I] SS : 
LL II ss 3 
LL I] SSSSSS 3 
LL I] SSSSSS 3 
LL II SS 3 
LL I] SS 3 
LL Il ss 3 
LL II ss 3 
LLLLLLLLLL IIII11 SSSSSSSS 3 
LLLLLLLLLL III! SSSSSSSS : 


oe ee ee ss = a a ss ss 


g 
eet leas HR | het roe a 


3 1 MODULE BOTPAG ( SDERT © *yO4~000" 3 
Py a - $ 
; j P %BL1SS32C 3; 1 
: ¢ P ¢ ADDRESSING MODE (EXTERNAL=LONG_RELATIVE ,NONEXTERNAL=LONG_RELATIVE) 5 , 
; y 6 BEGI £- : | 
pa! 8 jr : 
3 19 B92 ! dg tr ih alana find tah Py ! 
3 * 3 
; i B11, 1 i COPYRIGHT (c) 1978, 1980, 1982. 1986 BY : ; 
; \ B16 1 ie DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * oe} 
3 1 O14 } is ALL RIGHTS RESERVED. * 3 1 
; * 3 
; 15 15 1 ie THIS SOFTWARE IS cyneaee UNDER A LICENSE AND MAY BE USED AND gt * | 
; 16 Bot$ 1 i* ON NLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 3 1 
; 17 01 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * . 4 
; 18 Bos 1 '® (COPIES THEREOF MAY NOT BE PROVIDED OR OTHER WISE MADE AVAILABLE TO ANY s ..) 
Hy 19 it 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 1 
3 Y : » ! 7 TRANSFERRED. * 3 \ 
; ! * 3 
H ¢ $0 § 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * | 
: 00 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 3; 1 
3 : 4 : : a CORPORATION. * : 
3 } * 3 
; $$ 0026 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * am) 
3 sf B8 ; - SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. « 3 ! 
3 ; ® 3 
3 $3 0029 1 !* * a 4 
: Boas : [ooseenosescoseneescssreneoesuneneceresenionenenesonuenesoeesononeonsonsedns s ! 
; 32 0032 1 ise ; 1 
: 3 OO ! FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS : ! 
; ? 0035 ! ABSTRACT: Finishes that part of a page which occurs below the footnotes. : } 
a 0057 1! : 1 
: ; 4 ' ENVIRONMENT: Transportable 3 1 
; 40 $020 1 ' AUTHOR: Rich Friday CREATION DATE: 6 November, 1981 ot 
3; (C41 0041 1! 3 | 
: 1 
3; 1 
ae | 
2.4 
Ts 
a 
= 4 
~ | 
zs 
| a | 
| 
ox 
» 4 
74 
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Revision History IESSR1986 GHGB'EE HAGE, PhdebadRoN 6074 
SBTTL ‘Revision History’ 
MODIFIED BY: 
003 KFA00003 Ken Alden 07-Mar-1983 


Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 
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ee ah ee a ad ed et 
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Module Level Declarations 


XSBITL ‘Module Level Declarations’ 


TABLE OF CONTENTS: 
FORWARD ROUTINE 
BOTPAG : NOVALUE, 
CPAGEB : NOVALUE: 
i INCLUDE FILES: 
RARY '"NXPORT:XPORT'; 
UIRE "REQ:RNODEF'; 


DSRPLUS THEN 
RARY ‘REQ:DPLLIB'; 


RARY ‘REQ:DSRLIB'; 


—Oor-on ow 
“” 
m 


NO_BAR_SKIP (N) = 
BEGIN 
LOCAL 

HOLD_BARS; 

HOLD_BARS = .TSF_BARS; 
TSF_BARS = FALSE? 
USKIPL (N); 
TSF_BARS = .HOLD_BARS; 
END q; 


' 
EQUATED SYMBOLS: 


i] 
OWN STORAGE: 
i 
i 
i 


EXTERNAL REFERENCES: 
EXTERNAL 
GCA : 


PHAN : 
TPAGER : BL 
TSF : TSF_DE 


EXTERNAL ROUTINE 
OUTTXT, 


g 
1S-sep-1984 25:49:55 YAN-11 BLing-52_v4.0-742 


! XPORT Library 
! RUNOFF variant definitions 


! DSRPLUS BLISS Library 
! DSR BLISS Library 


This macro makes certain that when blank Lines at the top or bottom of a page 
ore skipped change bars don't get output. 


{ ,PAGE_SCT_SIZE, ‘List of terminating pages. 


POROARIPIAPIAIAIAIAIAIAIA IAI IAIAIA AIR IPR PP PO 


BOTPA 
v04=0 


Module Level Declarations 


PACBAS, 
PACPAG, 


OW 
cD ed ed 
v 
> 
a 
~" 

z 
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8 
- ep- 
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1982 $3:68:38 


AX=1 
RUNO 


1 
F 


B 
F. 
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704-000 Module Level Declarations 13-Sen-1984 $3:68:38 RUNOFFCSRESBOSPAG. OL fe dog (43 
GLOBAL ROUTINE BOTPAG : NOVALUE = 

i FUNCTIONAL DESCRIPTION: 
See ABSTRACT, above. 
i FORMAL PARAMETERS: None 
i IMPLICIT INPUTS: None 


1 
i 
1 
i] 
t 
L] 
IMPLICIT OUTPUTS: None 
i ROUTINE VALUE: 

| COMPLETION CODES: None 
( 


i SIDE EFFECTS: None 


ize user has specified that page layout. 


(.HCT_LAYOUTN NEQ 0) 
AND (.PHAN_LINES_TP NEQ 0) !'There must be something on the page. 


THEN 
CPAGEB (); 


‘We've just finished the bottom of a page. And we know how Farr 

‘Lines it contains. At this point we need to remember exactly how many 
‘physical lines were written so that /SIMULATE can get to the top of 
‘the next page later. Note that we can't simply go there because we 
'may be ea ipp ing ages due to a /PAGES switch; that means that 

'the next physica page might not occur until several pages Later, 

‘if it occurs at all. 


nes -GCA_SKIP_OUT 
PHAN_BOTTOM = .PHAN_LINES_TP; 'Save current count. 
‘If currently generating output, but there is a List of 
'pages fo be output, see if the page just finished terminates 
1a part cular List of pages. If so, turn off output. 


" .GCA_ORANGE_CNT NEQ 0 
THEN 


NOT .GCA_SKIP_OUT 
THEN 


'See if gutput should be turned off right now. 
GCA_SKIP_OUT = (PAGFND(PAGEN, TPAGER, .GCA_ORANGE_CNT, FALSE) NEQ 0); 


END; !End of BOTPAG 


Be ee Se Se Se Be Ge Se Ge Se Ge Ge BH Se Fe Ge Ge Se Ge Se Ge Ge Ge Ge FF Ss Ge Ge Gs Ge Ge Ge FF Ge Ge Se Se Se Sse Se Ge Sse Se Se Sse Ge Sse Se SseSsessSsetsese 
a a ek ee a ee kt ee ee a a ed ed dd od 
RR eh arate SIN 

MEWN 2 O OBOE WIN OC OONAUNE WIN SO ODNAUNE WN SO DONOAUES WOOD 

rx 
NA AEN 2 9 ODNAUE WN OS ODNAUES WN $0 ODNAUE WN 0 ODONAOU EWN SO OONOUEW 


SOOOSOOOOSOSOSOOSOSOSOOOOSOSOSOOSSOOSOSOOCOOCOSOOOOOCOOOOOOO OOOO OOOOOOO 


POPIPIPIPIPIPIPYPINIAIMPYPIPINININYIAINIPININPININGNIPIPOPoNynyfnyny 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
‘Output and center page number at bottom of page if 
' 


WOO OOOO O00 090909 09 09 09 09 09 09 SI SIN NSN SNS SSP PAP AA AAA A MAMI IIIS SS 


: 
3 
3 
J 
L 
3 
‘ 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
q 
3 
3 
3 
3 
3 
3 
; 
3 
3 
J 
, 
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BOTPA 18-52 -1984 749: AX-11 Bliss-32 V4.0-74 p 
v04-000 Module Level Declarations 1a-S8ep-1 Hn 43:G5:38 RUNOFF. BR C ete af He 
-TITLE 80 
IDENT 8004-800 
.EXTRN GCA, HCT PAGEN 
-EXTRN PHAN, TPAGER, TSF 
SEXTRN OUTTXT, PREBAS. PACPAG 
“EXTRN PAGFND, USKIPL 
«PSECT $CODE$,NOWRT,2 
000c¢ 00000 ENTRY BOTPAG Saye R2,R3 : 
53 990000 G EF 3 99008 MOVAB PHAN +18. R : 
G EF 00 MOVAB GCAt R2 : 
000000006 FF D5 00010 TSTL HCT#32 ; 
: 1 00016 BEQL "§ : 
63 D5 0001 TSTL § PHAN#12 : 
07 13 OOO1A BEQL ssi ; 
00000000V EF 00 FB do1¢ CALLS #0 CPAGER ; 
04 by E8 00023 1$: BLBS GCA+1 112. ; 
2c OsA3 65 DO 00026 MOVL PHAN+1 So ANeS6 : 
50 FC Ag DO OOO2A 2% MOVL GCA+108, RO : 
25 13 000 BEQL 84 ; 
22 $2 EB 000 BLBS GCA+112, 4$ : 
: D4 0003 CLRL = = (SP) ; 
50 pd 00035 PUSHL RO ; 
000000006 EF 9F 9037 PUSHAB TPAGER ; 
000000006 EF 9F 000 p PUSHAB PAGEN ; 
000000006 EF 4 FB 0004 CALLS #4, PAGFND F 
1 D4 0004A CLRL = R21. ; 
50 D3 9904¢ TSTL RO ; 
02 1 O04E BEQL 46s 3$ : 
1 D6 0005 INCL = R1 : 
62 51 00 0005¢ 3$: MOVL R1, GCA+112 F 
04 00055 4$: RET : 


; Routine Size: 86 bytes, Routine Base: S$CODE$ + 0000 


oe oe ee ee oY ee oe oy ot oe ot ot et et et et et et et et et et et et et et eee ee ee 
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BOTPAG i-se 1984 23:49: AX-11 Bliss-32 V4.0-74 P 

v04-000 Module Level Declarations 127808= 1382 $368 :38 RUNOFF $RetBOTPAC: Gf, shek (5) 
! 


< 


GLOBAL ROUTINE CPAGEB :NOVALUE = 
' 


'e+ 
FUNCTIONAL DESCRIPTION: 


be. rout:ne centers and outputs the page number at the bottom of the 
age. 


1 
] 
" 
FORMAL PARAMETERS: None 
; IMPLICIT INPUTS: None 
IMPLICIT OUTPUTS: None 
4 
i] 
! 
t 


po jejolelolololololo) 


PAR 29 ODA UE WN 9 OD NAME WIN S$ O OONAUE WIN O ODNOU ESWC OODNOUE WN O 


i ROUTINE VALUE: 
COMPLETION LODES: None 


ODONOUVE WN —OOONOUL win 


i SIDE EFFECTS: None 


BEGIN 
OCAL 
HOLD_TOP_PAGE, 
HOLD_ PAGING; 
'If the user doesn't want page numbers then just return. This 


© 
‘means that if he says «NO NUMBER. but says to center the page number 
‘at the bottom, he s ty! ets the white space. 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
IF (NOT .HCT_NUMBER 
THEN 
RETURN; 
‘Turn off paging so a new page is not accidentally started. 
NG 2 PHAN. PAGING: 


SOSCSSSSODOODODODO @ 
SESS SPSSSSSLLLLL GO 292 ww 0090000090900 VAIN III 


AND (.HCT[LAYOUT”NEQ LAYOUT_RUN_BOTC) ‘Generate the number if user wants running page numbers 
HOLD" TOP PAGE = .PHAN_TOP_PAGE; 


AN-PAGING = FALSE 


'Position down to fill all Lines except Line where the page number goes. 
NO_BAR_SKIP (.PHAN_LLINES = (1 + .PHAN_LINES_TP)); 


srry, senerace the page number in a temporary buffer. 
LOCAL 
WORK_AREA : VECTORCCHSALLOCATION(100)], 
WORK_LENGTH, 
WORK_PTR; 


WORK_PTR = CHSPTR (WORK_AREA); 
'Generate either the running page number between a dash-space combination, 


‘or the regul er page number. 
OUT EQL LAYOUT_RUN_BOTC 


Sad we 4 


OWONOULWN—O 


ee eee ee SS Ye YY ee 


PRaPPPIPOPININIMYAIMNINININIPIPIPININININININININININID) 9 a 


NoPonofonofonofons 


DONO UESWN © 


If _ .HCT_LA 
THEN 


9 
BOTPA 1b-se -1984 23:49: AX-11 Bliss-32 V4.0-74 R 
v04-000 Module Level Declarations 12-88-1382 43:08:38 RUNOFF SR BOTPAG.BLI; age 6§ 


; 9 5 3 ‘User wants a running page number output. > 
: 5% g § BEGIN oe ° 
5 1 4 ‘First generate ‘'= "' (dash space) ; 
: é : 4 CHSWCHAR_A (ZC'=", WORK_PTR); 3 
: 4 SWCHAR_A (20° ', WORK_PTR); $ 
; 4 60 4 WORK_LEN = 2; ‘ 
; 5 61 4 'Now insert the fyoning page counter. : 
; $ ¢ 4 WORK_LENGTH = .WORK_LENGTH + PACBAS (.PAGEN CSCT_RUN_PAGEJ, WORK_PTR, 10); ; 
; 65 4 'Now follow with "* = epee dash) : 
; 238 64 4 CHSWCHAR_A (XC' ', WORK_PTR); ; 
: 9 65 4 CHSWCHAR_A (ZC'=', WORK PTR); . 
: 240 66 4 WORK_LENGTH = .WORK_LENGTH + 2; : 
3; «6241 6/7 & ND 3 
; eg 68 ELS 3 
; 24 8395 'Center the normal page number at the bottom. : 
; re gary WORK_LENGTH = PACPAG (PAGEN, WORK_PTR); !Convert page number and get Length. ‘ 
: 26 037 ‘Finally, output the page number, centered. ; 
> 26 0378 OUTTXT CCHSPT (WORK REX), -WORK_LENGTH, .GCA_LWIDTH); ; 
: 48 0374 END; 3 
3 49 b852 3 
; 250 6 'Now restore the aging status and return. ° 
3 go) 037 PHAN_PAGING = .HOLD PAGING; : 
; 3¢ 0378 PHAN-TOP_PAGE = .HOLD_TOP_PAGE; ; 
3; 2&5 0379 1 END; !End of CPAGEB ; 
OOFC 00000 -ENTRY CPAGEB, Save 82,R3,R4,R5,R6,R7 ; 0298 ; 
57 00000000G EF 9E Bn MOVAB TSF, 3 : 
56 000000006 EF 9€ 0000 MOVAB HCT+28, R6 3 : 
55 00000000G EF 9€ 00010 MOVAB PHAN+40, R 3 : 
5E 98 AE 44 90017 MOVAB -104(SP5, SP ; : 
06 F B6 €8 0001B BLBS @HCT+12, 1$ : 0328 : 
03 66 01 Beit CMPL HCT+28, #3 ; 0329 3 
01 i? a0 ¢ BEQL 1$ 3 : 
53 4 B5 pe 025 1$: MOVL @PHAN+40, HOLD_PAGING 3: 0334 : 
54 D AS D 029 MOVL PHAN, 1 aa liaal tae PF 83 5 J 
00 BS D4 00020 CLRL +4 3 6 ; 
D8 AS D4 000 CLAL ; 0337 Z 
39 DO MOVL SF. RO ; 0340 3 
52 7C =6A0 1 0 EF EXTZV #0, #1 tgs (ne? HOLD_BARS 3 3 
7¢ AQ 1 8A C B1cB¢ #1 Vader ) : ; 
50 oc «iB E4 AS 3 46 SUBL3 PHAN+12, @PHAN+4, RO : : 
FF AO F 28 PUSHAB - 3 : 
00000000G_ EF 01 F 4 CALLS #1, USKIPL ; 3 
0 gf i) MOVL : : 
7¢ =A 01 0 2 F INSV HOLB_BARS, #0, #1, 124(RO) : ; 
of 04 AE i: MOVAB WORK“AREA, WORK_PTR : 0349 ; 
0 p CMPL WCT#28, a > 0353 3 
6 BNEQ 2 3 F 
00 BE dD 9 MOVB #45, aWORK_PTR ; 0358 : 
F p INCL WORK PTR ; ; 
00 «BE MOVB #32, aWORK_PTR ; 0359 3 

| 


tate ilar coc - 


BOTPA 
Vv O80 Module Level Declarations 


52 


000000006 gf 


000000006 gE 


oc 
000000006 
00 


EF 
BS 
D8 = AS 


; Routine Size: 197 bytes, 


ge 
7E 000000006 


2 

00 BE 

00 «BE 

52 
000000006 


2 
000000006 


euwn 
te 
mm 


e@eoO 


p-19be 13:05:38 


RUNOFF ..SRC 


CALLS #3, OUTTXT 
MOVL § HOLD_PAGING, @PHAN+40 
MOVL § HOLD“TOP_PAGE, PHAN 


1 
1 
‘ D6 6C INCL  WORK_PTR 
D § MOVL #2, QORK_LENGTH 
A 0D PUSHL #10 
AE 9F 0007 PUSHAB WORK_PTR 
F 3¢ 0007 MOVZWL PAGEN+14, =(SP) 
F 7D CALLS #3, As 
§ ADDL2 RO, WORK LENGTH 
7 MOVE #32, @WORK_PTR 
E ps B INCL  WORK_PTR 
D MOVE #45, aWORK_PTR 
D INCL. WORK 
: 9 ADDL2 f , BORK_LENGTH 
5E po 98 2$: PUSHL 
F 9F OOO9A PUSHAB 
: FB AQ CALLS a2, PACPAG 
D A OVL RO, WORK_LENGTH 
FF DD OOOAA 3$: PUSHL aGCA+140 
52 DD 0008 PUSHL WORK_LENGTH 
AE 9F 0008 PUSHAB WORK AREA 
03 FB 0008 
3 D0 o0B¢ 
4 p0 000¢ 
04 0004 


Routine Base: S$CODE$ + 0056 


; See O38 ND 'End of module BOTPAG 

: 356 0382 0 ELUDOM se Piage Migssc an 

: PSECT SUMMARY 

3 Name Bytes Attributes 

: SCODES 283 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 

RASS ares So eae eer ee ee Symbols -------- Pages Processing 

: File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBIXPORT.L32;1 59 0 252 :00.1 

. BTS DUASBS ERUNDEE SRC IDEAL TB L32;1 1308 26 3 86 $8:00:2 


AX-11 Oh lege 3e V4.0-74 
BOTPAG.BLI; 
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CRD FDLD SRR ODOR LALALALALALALALALALAUALALAULALLALALAUILUALALALALALALALALALALALALALALALALALALALALALALA ALA 


v04-060 Module Level Declarations 1fose $p-1382 £3 33: 33 RUNDE FF. eR eYa0 PAG.BLI: ~— (Jf 


; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:BOTPAG/OBJ=0BJ$:BOTPAG MSRC$:BOTPAG/UPDATE=(ENHS$:BOTPAG) 


Size: 283 e + 0 data bytes 
Run Time: :06.4 

Elapsed Time: 318.2 

Lines/CPU Min: 5 

ponenne ral 16096 

pone | Used: 67 pages 

Compilation Complete 
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